home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok58 / textwindows / txtwintest.mod < prev    next >
Text File  |  1993-11-04  |  1KB  |  53 lines
  1. (*************************************************************************
  2.  
  3. :Program.       TxtWinTest.mod
  4. :Contents.      Test-Prg zu TextWindows
  5. :Author.        Hartmut Goebel
  6. :Language.      Oberon
  7. :Translator.    Amiga Oberon
  8. :History.       V1.0, 21 May 1991, Hartmut Goebel
  9. :Date.          23 May 1991 15:23:55
  10.  
  11. *************************************************************************)
  12.  
  13. MODULE TxtWinTest;
  14.  
  15. IMPORT
  16.   Break, NoGuru, io,
  17.   tw: TextWindows,
  18.   sys: SYSTEM;
  19.  
  20. VAR
  21.   win: tw.TxtWinPtr;
  22.   c: ARRAY 100 OF CHAR;
  23.   i: LONGINT;
  24.  
  25. BEGIN
  26.   win := tw.OpenTextWin("Display-Test",0,0,640,101);
  27.   IF (win=NIL) THEN
  28.     io.WriteString("Can't Open TextWindow\n");
  29.     HALT(20);
  30.   END;
  31.   tw.WriteString(win,"Hallo Welt");
  32.   tw.Write(win,"!");
  33.   tw.WriteLn(win);
  34.   tw.WriteHex(win,77,3);
  35.   tw.WriteLn(win);
  36.   tw.WriteInt(win,3,3);
  37.   tw.WriteLn(win);
  38.   tw.Read(win,c[0]);
  39.   tw.WriteLn(win);
  40.   tw.WriteString(win,"String>");
  41.   tw.ReadString(win,c);
  42.   tw.WriteString(win,"Int>");
  43.   IF tw.ReadInt(win,i) THEN tw.WriteString(win,"Int ok!\n") END;
  44.   tw.WriteString(win,"Hex>");
  45.   IF tw.ReadHex(win,i) THEN tw.WriteString(win,"Hex ok!\n") END;
  46.  
  47.   tw.WriteString(win,"<return>");
  48.   tw.Read(win,c[0]);
  49.   tw.CloseTextWin(win);
  50. END TxtWinTest.
  51.  
  52.  
  53.